home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / aie8911.zip / V3.ARI < prev    next >
Text File  |  1989-08-26  |  1KB  |  40 lines
  1.  
  2. % stub_trace.
  3.  
  4. /***************** the system  -  v. 2 ****************************/
  5.  
  6.  
  7. /***************** the test   *************************************/
  8.  
  9. test :-   process_housing_units.
  10.  
  11. /************* end the test   *************************************/
  12. %%%%%%%%%%%%%%%% process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  13.  
  14. :- init_ops.
  15. /*
  16.  
  17.  data  ([ name: order_date,
  18.           def : $day salesman calls in order$,
  19.           representation : ( Year, Month, Day) ].
  20. */
  21.  
  22. stub  [ call : process_housing_units ,
  23.         purpose: $processes  housing units$].
  24.  
  25. :- turn( process_housing_units, on).
  26. :- show( process_housing_units, on).
  27.  
  28.  
  29.  
  30. %%%%%%%%%%%% end process_housing_unit %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  31.  
  32. stub  [ call : data_collected_q(  Housing_unit  ),
  33.         purpose: $decides if data was collected for Housing_unit$].
  34.  
  35. stub  [ call : put_in_sample(  Housing_unit  ),
  36.         purpose: $puts data into sample for used for CPI$].
  37.  
  38.  
  39. /************* end the system  -  v. 2 ****************************/
  40.